home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / pgmmenu.arc / PGMMENU.CMD < prev    next >
OS/2 REXX Batch file  |  1991-12-04  |  5KB  |  102 lines
  1.              CMD        PROMPT('CRC - Programmer Menu')
  2.  
  3.              /*         PGMMENU  */
  4.              /*         Command processing program is CRC1230  */
  5.  
  6.              PARM       KWD(USROPT) TYPE(USROPT) DFT(*NONE) +
  7.                           SNGVAL((*NONE) (*DFT) (*CURRENT)) +
  8.                           PROMPT('User''s default option:')
  9.  USROPT:     QUAL       TYPE(*NAME) MIN(1) EXPR(*YES)
  10.              QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL)) +
  11.                           EXPR(*YES) PROMPT('Library name:')
  12.  
  13.              PARM       KWD(SRCFILE) TYPE(*NAME) EXPR(*YES) +
  14.                           PROMPT('Source file name:')
  15.              PARM       KWD(SRCLIB) TYPE(*NAME) DFT(*LIBL) +
  16.                           SPCVAL((*LIBL)) EXPR(*YES) PROMPT('Source +
  17.                           file library name:')
  18.              PARM       KWD(OBJLIB) TYPE(*NAME) DFT(QGPL) +
  19.                           SPCVAL((QGPL)) EXPR(*YES) PROMPT('Object +
  20.                           library name:')
  21.  
  22.              PARM       KWD(JOBD) TYPE(JOBD) PROMPT('Job description:')
  23.  JOBD:       QUAL       TYPE(*NAME) DFT(QBATCH) SPCVAL((QBATCH) +
  24.                           (QPGMR)) EXPR(*YES)
  25.              QUAL       TYPE(*NAME) DFT(*LIBL) SPCVAL((*LIBL)) +
  26.                           EXPR(*YES) PROMPT('Job description library +
  27.                           name:')
  28.  
  29.              PARM       KWD(LOG) TYPE(*CHAR) LEN(4) RSTD(*YES) +
  30.                           DFT(*YES) SPCVAL((*YES) (*NO)) EXPR(*YES) +
  31.                           PROMPT('Log command requests:')
  32.              PARM       KWD(SIGNOFF) TYPE(*CHAR) LEN(7) RSTD(*YES) +
  33.                           DFT(*NOLIST) SPCVAL((*NOLIST) (*LIST)) +
  34.                           EXPR(*YES) PROMPT('Sign off (*LIST +
  35.                           *NOLIST):')
  36.              PARM       KWD(LOGCLPGM) TYPE(*CHAR) LEN(4) RSTD(*YES) +
  37.                           DFT(*JOB) SPCVAL((*YES) (*NO) (*JOB)) +
  38.                           EXPR(*YES) PROMPT('Log CL program commands:')
  39.              PARM       KWD(ALWRTVSRC) TYPE(*CHAR) LEN(4) RSTD(*YES) +
  40.                           DFT(*YES) SPCVAL((*YES) (*NO)) EXPR(*YES) +
  41.                           PROMPT('Allow retrieve CL source:')
  42.              PARM       KWD(USRPRF) TYPE(*CHAR) LEN(6) RSTD(*YES) +
  43.                           DFT(*USER) SPCVAL((*USER) (*OWNER)) +
  44.                           EXPR(*YES) PROMPT('Adopt user profile +
  45.                           authority:')
  46.              PARM       KWD(PUBAUT) TYPE(*CHAR) LEN(7) RSTD(*YES) +
  47.                           DFT(*NORMAL) SPCVAL((*NORMAL) (*ALL) +
  48.                           (*NONE)) EXPR(*YES) PROMPT('Public +
  49.                           authority:')
  50.              PARM       KWD(RSTDSP) TYPE(*CHAR) LEN(4) RSTD(*YES) +
  51.                           DFT(*NO) SPCVAL((*YES) (*NO)) EXPR(*YES) +
  52.                           PROMPT('Restore display:')
  53.              PARM       KWD(DFRWRT) TYPE(*CHAR) LEN(4) RSTD(*YES) +
  54.                           DFT(*NO) SPCVAL((*YES) (*NO)) EXPR(*YES) +
  55.                           PROMPT('Defer write:')
  56.  
  57.              PARM       KWD(SIZE) TYPE(SIZE) PROMPT('Initial number +
  58.                           of records:')
  59.  SIZE:       ELEM       TYPE(*CHAR) LEN(8) DFT(10000) +
  60.                           SPCVAL((*NOMAX)) EXPR(*YES) PROMPT('Initial +
  61.                           file allocation:')
  62.              ELEM       TYPE(*CHAR) LEN(5) DFT(1000) EXPR(*YES) +
  63.                           PROMPT('Increment records:')
  64.              ELEM       TYPE(*CHAR) LEN(6) DFT(3) EXPR(*YES) +
  65.                           PROMPT('Maximum number of increments:')
  66.  
  67.              PARM       KWD(MAXRCDS) TYPE(*CHAR) LEN(6) DFT(20000) +
  68.                           SPCVAL((*NOMAX)) EXPR(*YES) PROMPT('Maximum +
  69.                           printer file records:')
  70.              PARM       KWD(SCHEDULE) TYPE(*CHAR) LEN(8) RSTD(*YES) +
  71.                           DFT(*JOBEND) SPCVAL((*JOBEND) (*FILEEND) +
  72.                           (*IMMED)) EXPR(*YES) PROMPT('Print file +
  73.                           output scheduling:')
  74.  
  75.              PARM       KWD(BLINK) TYPE(*LGL) RSTD(*YES) DFT(*YES) +
  76.                           SPCVAL((*YES '1') (*NO '0')) EXPR(*YES) +
  77.                           PROMPT('Blinking cursor:')
  78.  
  79.              PARM       KWD(RSTLIBL) TYPE(*CHAR) LEN(4) RSTD(*YES) +
  80.                           DFT(*NO) VALUES(*NO *YES) EXPR(*YES) +
  81.                           PROMPT('Save/Restore library at CMD 1:')
  82.  
  83.              PARM       KWD(MBRLIST) TYPE(*CHAR) LEN(4) RSTD(*YES) +
  84.                           DFT(*NO) VALUES(*NO *YES) EXPR(*YES) +
  85.                           PROMPT('Require (* ?) for Member list:')
  86.  
  87.              PARM       KWD(DFTYPE) TYPE(*CHAR) LEN(4) RSTD(*YES) +
  88.                           DFT(*RQD) VALUES(ASM BAS BASP BSCF CBL CL +
  89.                           CLP CMNF DDS DFU DSPF FMT LF MXDF PLI PF +
  90.                           PL1 PRTF QRY RPG PRT TXT DOC) +
  91.                           SPCVAL((*RQD)) EXPR(*YES) PROMPT('Default +
  92.                           for TYPE parameter:')
  93.  
  94.              PARM       KWD(SHARE) TYPE(*CHAR) LEN(4) RSTD(*YES) +
  95.                           DFT(*NO) VALUES(*NO *YES) EXPR(*YES) +
  96.                           PROMPT('Share open data path:')
  97.  
  98.              PARM       KWD(OPTIMIZE) TYPE(*CHAR) LEN(4) RSTD(*YES) +
  99.                           DFT(*NO) VALUES(*NO *YES) EXPR(*YES) +
  100.                           PROMPT('Optimize HLL programs:')
  101.  
  102.